(smtpmail-send-it): Use mail-sendmail-undelimit-header.

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 95b512a65b358f37971ea425e094e59e99d69899..b747eafe16e3e2c3af404738ecf56b9e12cc5e1e 100644 (file)
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -129,11 +129,7 @@ This is relative to `smtpmail-queue-dir'.")
          (or (= (preceding-char) ?\n)
              (insert ?\n))
          ;; Change header-delimiter to be what sendmail expects.
-         (goto-char (point-min))
-         (re-search-forward
-           (concat "^" (regexp-quote mail-header-separator) "\n"))
-         (replace-match "\n")
-         (backward-char 1)
+         (mail-sendmail-undelimit-header)
          (setq delimline (point-marker))
 ;;       (sendmail-synch-aliases)
          (if mail-aliases